home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Taifun / Taifun 045 (1988-02-15)(Ossowski, Stefan)(DE)(PD).zip / Taifun 045 (1988-02-15)(Ossowski, Stefan)(DE)(PD).adf / Iff2Pcs / Source / pzutil.c < prev    next >
Text File  |  1988-01-20  |  755b  |  43 lines
  1. /* Various small utility routines for IFF2PCS.
  2. ** Ali Ozer, Nov 1987
  3. */
  4.  
  5. unsigned long TimeInSecs ()
  6. {
  7.   unsigned long datevec[3];
  8.   DateStamp (&datevec[0]);
  9.   return (datevec[0] * 86400L + datevec[1] * 60L + datevec[2] / 50L);
  10. }
  11.  
  12. static unsigned long rndseed;
  13.  
  14. void InitRnd ()
  15. {
  16.   unsigned long datevec[3];
  17.   DateStamp (&datevec[0]);
  18.   rndseed = datevec[1] * datevec[2];
  19. }
  20.  
  21. int RndInt (min, max)
  22. int min, max;
  23. {
  24.   long res = (rndseed & 0x00000002L) | (rndseed & 0x00000010L);
  25.   rndseed >>= 1;
  26.   if (res == 0x00000012 || res == 0x00000000) rndseed |= 0x80000000L;
  27.   return ((((int)(rndseed & 0x00007fffL)) % (max + 1 - min)) + min);
  28. }
  29.   
  30.  
  31. int Min (a, b)
  32. int a, b;
  33. {
  34.   return ((a > b) ? b : a);
  35. }
  36.  
  37.  
  38. int Max (a, b)
  39. int a, b;
  40. {
  41.   return ((a > b) ? a : b);
  42. }
  43.